home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / PD / Anwendungen / AmiCAD / ARexx_english / UnZoom.AmiCAD < prev    next >
Text File  |  1998-06-17  |  536b  |  23 lines
  1. /* © R.Florac, 3 Mars 1998, version 1.1e */
  2.  
  3. options results
  4.  
  5. signal on error     /* error handling */
  6. signal on syntax
  7.  
  8. 'IF(SCREENMODE==0,MESSAGE("Call Zoom first"):0,-1)'
  9. if result=-1 then do
  10.     'SCREEN(SCREENMODE,SCREENWIDTH,SCREENHEIGHT,FONT,FONT_SIZE)'
  11.     'WINDOW(X_LEFT,Y_TOP,WINDOW_WIDTH,WINDOW_HEIGHT)'
  12. end
  13. exit
  14.  
  15. syntax:
  16. erreur=RC
  17. 'MESSAGE("Script UnZoom.AmiCAD"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  18. exit
  19.  
  20. error:
  21. 'MESSAGE("Script UnZoom.AmiCAD"+CHR(10)+"Error in line 'SIGL'")'
  22. exit
  23.